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2.0 General comment 

2.1 Compound statement "Entry" 

2.2 Compound statement S10 ; main . of the interpreter 

2.3 Compound statement S11 ; the big transporter 

2.4 Compound statement S11a; the restorer. 

•2.5 Compound statement S12 ; the small transporter 



"begin 



Dwn integer array st[PO, QO] ; 



comr 

< <£)le Interpret / 

\.Fpr special' N-ALGOL.. features confer 

Ithe heading of the trai*,. iCor. 

Por object programmes to be interpreted and for their 
variables and arrays, the space PO *.. QO is available. 
The object programme of the interpreter is supposf* to 
be^a)on address PO - 1 and to be realized accoar / 
to the translation process, given above; 
As this own array of the interpreter is declar 
first, it indeed occupies the absolute addreif 
PO .«• QO and is joined, within the store, b 
own variables, declared next. On address PO 
the interpreter contains a pass instruction, leaai. 
to the object programme of compound statement ENTRY; 



own integer A, B, chain, chain2, 
e, e2, I, J, mant, exp, N, E, p, 
p1, p2, P, Q, Q2, 81, y; 
procedure wrong ; 



procedure real(P, G-); 



procedure integer (F, G); 



Confer table UB; 

This procedure, mentioned in the translator heading, 

reveals the mistakes, listed in table 5A. 

S10L 2k, 25, 27, 123; 

Machine code, The procedure transfers integer P 

to the real representation, assigning the mantissa, 

and 1 + 2 x the exponent, of the result to P and £ 

S10L 27, 62, 65, 91, 122, 128; 

Machine code, f be the value of the number with the 

mantissa P and the exponent (G - l)-r2« 

Then G : = and P : = entier (f + 0.5). 

Switch for the non-extractive instructions. * 

Table 1D shows the reversed order. 

S10L15; 



Z.U.£ 



switch sw1 : = 

S10L135, 310L1U2, S10L1U0, S10L130, 

S10L128, S10L120, S10L96, S10L91, 

S10L70, S10L121, SlOLlkk, S10L101, 

S10L11|5> S10L58, S10L55, S10L106, 

S10L108, S10L65, S10L62, S10L100; 

switch sw2 5 = 

S10L88, S10L87, S10L81, SlOLli^, 

S10L126; 



comment 

Switch for the extractive instructions (table 1C) 
S1 01*19; 



switch sw3 : = 
■multiplication, division, integer 

j, 'vision, plus, minus, equal, not 
';' dlsj- greater, greater or equal, 
.-and, or, implies, equivalent; 



As the arithmetic part of the interpreter is not 

described "below, the labels in the next 2 switch 

lists are imaginary. 

The operator t is mentioned on S10L22. 

Switch for applying the operators (table 1A) to 

integral values mant and N. 

The first division operator delivers a real result 

mant, exp. Otherwise an integral result is assigned 

to mant, for example: 

true = or false = -1 • 

S1 0L23 ; 

Switch for applying the operators to real val. 

mant, exp. and N. E. 

Unlisf a type mistake occurs (cf. table 5A), a . 

result is obtained, whose mantissa is assigned tv 

mant, while 1 + 2 x the exponent is assigned to exp. 

The relational operators, combined, replace 

extraction instruction ««&. by an appropriate jump 
"instruction ? * : - : ' - J ^3S^^ump to : the minus section, 
. return eeparal X H p" J, perform their te'- • 

and, combined^ . .. .„, 
• S10L26| 




con 



switch swU : = MULTIPLICATION, jI (lOLIltf, PLUS, MINUS, 

EQUAL, NCT EQUAL, Gixii/lTER,' GREATER OR EQUAL, 
S10L147, S10L1^7, S10L1i)-7, S10Ll47j 
S10L2, S10L3; 

■p rocedure JUMP (F) ; Machine code. The procedure only executes the machine 

code jump instruction P. which is a positive *?*" N 
in ZEBRA code in contrary to the extraction iny 
tion of the interpreter, which is negative; 



2.1.1 



"begin 
ENTRY: A : = read; 

B : = p : =s e2 : 



Q : = QO; 
P : = st[PO]j 
e : = PO + BO;' 
£0 to S10L1 
end ENTRY; 



comment 
Compound statement ENTRY; 

which * 2 1 - 1, when exponents are wanted to occupy 
i digits (the right-most i digits of a location); 
B = st[QO + 2] may also.be regarded as a permanent 
constant of- the interpreter which need not he 
cleared" here ; 
cf . -table 1E; 
which is the address P1 of table hB; 



+ x 



begin 



S10L0: Q : = y : = Q - 2; 

if Q < P then wrong 

SlOLOa:st[y + 1] : = mant; 
st[y + 2 ] : = exp; 



S1 0L1 : e : m e + 1 ; 



S10L2: if e > then JUMP(e); 



I : = st[e - BO]; 
N : = st[e + 1 - EO]; 
S10L3: if I > then JUMP (i); 



SlOLi+: y : = 8191 or I; 

if y / then jgo to S10L9; 
S10L5: J : = I * 2t26; 
S10L6: if (I or 2t2h) = then go to 

S10L8; 



c omment 
Compound statement S10. 
S10L3, the instruction partres: 
S10L U1, 71; 

Addresses Q + 1 and Q + 2 are reserved for s+'-^.ng a 
partial result; 
cf. table 5A. 
S10L1214-; 

Thus mantissa and exponent of a partial result- 
stored separately, 

S10L22, 63, 81, 89, 90, 99, 100, 101+, 111, 1 
130, 131, 
EMTRY; 

Extraction instruction is increased with 1 . 
S10L2^59, 95, 109; SHaL9; 

Then e is a machine code instruction and is 
normally executed. 

Otherwise 2 consecutive words are extracted from 
the object programme:; 
For EO cf, table 1E; 



+ x 



Then instruction I is normally executed. For example, 

instruction I = partres jumps to S10L0, 

A negative instruction I is interpreted as follows: 

31 OL 73, 113, 139; 

which is the address part of instruction I; 

Otherwise address y is 0:; 

which is analogous to SlOLlh; 

Then N. . is a programme constant to be extracted by 

the instruction I preceding it in the object 

programme. 



2,2.2 



S10L7: Q : = Q + 2; N : = st[Q - 1]; 
E : = st[Q]j 
go to S10L20; 

S1 0L8 : e : = e + 1 ; 



£0 to S10L17; 
S10L9: J : = I or 2t23 - 2tl3; 

if J ^ then go to S1 0L1 ; 



p1 : = 0; 
go to SlOLlUj 
S10L10: pi : = p; s1 : = chain j 



S1 0L1 1 : if si < J + 81 92 then go to 
S10L12J 

B1 : = st[p1 + QO + 1] • 
p1 : = st[p1 + GO + 2]; '■ 
£0 to S1 OL-l 1 ; 
S1 0L1 2 : y : = y + p1 ; 



t 



comment 
Instruction I must extract partial result from 
addresses "Q + 1 and Q + 2 (cf. S10L0):; 
Addresses Q - 1 and Q are no longer occupied. 
I can only be a calculative instruction, thus:; 

S10L6; 

for programme constant N. is not the instruction 
to "be extracted next. I can only he an extractive 
or calculative instruction, thus:; 

S10LU; • 

1 3 
which is 2 ^ x rank rO contained in instruction I; 

Then rO must be looked up in the rank chain. 

rO = is the last element in the rank chain. 

The pre-value corresponds to it, thus; 



S10L9; 



•J 



10L13: if. (I or 2t23) = then go to 
S10L30; 



which are the resident values of p and r l 

13 
= s + 2 xr, in which s is a key addresi 

S10L11; 

Then rank r looked up = rO. 

Otherwise r is still > rO and next chain e 

is extracted:; 

s1 again having the form s1 = s -V 2 x r; 

S10L11; 

which addition is useful 1 only when y if 
relative address of a variable thus no a',, 
address of a word of the object programme; 

Then instruction I refer- /to a formal parameter, 
S10L 9, 35, 80, 77 j 




I 
comment 
SlOLlh: J : = I -f 2|26; Then J = - 128 + number q., mentioned in table 

1A, 1C or 1D for instruction I, the regif^M/ve 
version included. The. term - 128 is intrc, >tby 
the multiplication, "because I is ne^ativ^ , \ 
S10L15: It J + 21 > then go to Then instruction I is non-extractive. In tai 
sw1 [ J + 21] j the numbers 10U to 107 are not yet used. 

Otherwise an extraction is performed: 
S10L68; 
S10L16: N : = st[y]; As N and st[y] are integral variables c 

interpreter, this is an assignment without' 
of representation. Of course, st [y] may b 
variable of the object programme whose ir 
tion is running. Yet the value of st[y] is liu Klly 
copied. 

S10L8, SHLh3j 
S10L17: if (I or 2125) = 

then E : = x 

else 

begin For A cf. ENTRY on page 172; 

y : = A; E : = y or N; N : = N-E; 
E : = 1 + 2 x (E -(2xE or y+1)) 

end Bit I-, = indicates that N is of integer type. 

Then E : = 0. Otherwise N : = mantissa of 
extracted value, and E : = 1 + 2 x exponent with 
the correct sign digit E • 
S10L18: if (I or 2t2i+) / then go to Then -the representation of the just extracted value 
S10L27; of a formal parameter must be transferred. x 

S10L 28, 51; 
S10L19: if J + 33 > then go to Then instruction I is extractive and its number q. * 
sw2[J + 33] J in table 1C £ 96; 



310L20: if (J or 1) = then go to 
S10L21; 



2.2 .U 

comment 

S10L7; 

Then the operation to be carried out is either 

commutative, or it must be applied to accu and the 

extracted value taken in the order as given here. 

Otherwise it must be applied to the values taken in 

the opposite order; 
I : = N; N : = mant; mant : = I; 
I : = Ej E : = exp; exp .: = 1; S10L20; 

Thus the gression bit is shifted off and J is no 

longer negative; 

exponentiation is performed and a return to S1 0L1 . 

Otherwise:; 

Then E = 1 + 2 x exponent, and N = mantissa of a 

real value; 

Then operation is applied to integers mant and N; 

As accu is reali integer N must also be given +' 

real representation; 

S10L23; 



S10L21 : J : = (J + &k) * 2; 

S1 0L22 : if J = then go to power ; 

S10L23: if E ^ then go to S10L25; 

if exp = then .go to sw3 [J]; 
S10L24: real (N, E) ; 



go to S10L26; 
S10L25: if exp = then r^l (ma' 
exp); 



/ 



S1 0L26 : go to sw4 [J ] ; 
S10L27: 



S1 0L28 ; 
S10L30: 



if E = then real (N, E) 

else integer (N, E); 

go to S10L19; 

E : = st[y]; J : = st[y + 1] ; 



for the other value has also the real repre, 

H and E. 

8lOL2i+; 

Thus operation is applied to real values. 

S10L 18, 51; 



S10L13; 

Thus by-word and main word (table 3) of a formal 



parameter are extracted. 
S11L36; 



S10L31 : I : = I + (J or 2t2h x 3); 

S10L32: p1 : = I or 2t26 x 127; 

S1 0L33 : y : = J or 81 91 ; 

S10L31+: if J < then go to S10L142; 

S1 0L35 : if 2 x J > then ^**%^^ 

SIOL36; \ 

if pi / 2t26 x % . ** . 

S10L1U; 

wrong; 

S10L36: if k x J < then go to 

S10L60; 
S10L37: if 8 x J < then go to 

S10L82; 

S10L38: if 16 x J > then wrong; 

S10L39: i£ p1 / 2t26 x 120 then go to 
S1 OLkl ; 



comment 
Thus instruction I adopts the eventual tynjs 
indication of key main word J; 
which is the operation part of instructio. 
S10L 8h, 86; 

which is the address part of key main word J; 
Then parameter represents an expression; 
Otherwise parameter represents simple variable 



f 



\ 



310LU0: Q : = Q - 9; 

if Q < P then wrong; 



icf . table 5A and jump in table 1D, 
S10L35; 
Then parameter represents an array; 

Then the parameter represents either a switch, or a 

label, or a constant actual parameter which constant 

also occurs in the text as a label; 

for a string has no type (cf. table 5A) . 

Formal parameter f represents a procedure :j 

Then f is either a designator having no a ctual 

parameters, or a left part element of an assignment 

statement* 

f(. ..). The prostat instruction (cf. table 1D) I 

which refers to parameter f and the key address W 

are the first 2 words of the object programme of 

designator f (...)• The procedure, represented by 

parameter f, has, of course, formal parameter's:; 

cf. table 5A; 



2.2.6 



comment 



st[Q + 5]: = chain; 

st[Q + 6] : = p; 

st[Q +.7]: = P.; 

st[Q +8]: = N; 

I : = E; 

B : = st[y]; 

J : = et[y + 1] j 

go to S11L1 ; 



S10LI4-1 : i£ pi fi 2t26 x 11 6 then go 
S10LU2; 



mant : s J + 2t?' 
go to S10L0 
SlOLh2: Q : = Q - 6; 

if Q < P then wrong; 



J is the value of chain, "belonging to the action of 
the block to which the procedure to "be called is local. 
That value must he copied. In S1.1L4, the key address 
is introduced in chain, which makes, when returning 
from the procedure,, the test on Sl.laLl+ fail. < 

S10L39; 
to Then a procedure having no formal parameters is 
called. / 

Assignment to function name: (cf. store addrp' 
iDle 1D). A store procedure instruction is 
/ere instead of the store accu instruction oi 

/S10L 3U, U1; 



J 



cf . tahle 5A; 



st[Q + 1]: 


- mant; 


st[Q + 2]: 


= exp; 


st[Q + 33: 


= chain; 


sttQ + h]: 


= p; 


st[Q +5]: 


= e; 


st[Q + 6]: 


= I; 



The information, stored on -addresses Q + 1 to Q + 6, 
is used for the return on S10L2+7; 



OLl+3: chain : = st[y]; p : = st[y + 1]; 

S10IM: e : = E; . 

if e < then go to S10L2; 



S10L1+5: I : = 1; 

: £o to S12L1 ; 



S10U+6: N : - mant; E : = exp; 



S10LU7: mant 
exp 
chain 



= st[Q + 1] 
= st[Q +: 2] 
= st[Q + 3 J; 
p : = st[Q + hi; e : = st[Q + 5]; 
I : = st [Q + 6]; Q .: = Q + 6; 
S10L14-8: J : = I + 2t26; 
S10I49: if J + 2k < then go to 
S10L51 ; 



comment 2.2.7" 

is the address Z mentioned for procedures and 
expressions in table 3; ..--.*-.* 



Then the parameter represents a (non- 
expression U. The object programme U' o± 
now interpreted. 

When U Is a subscripted variable, then, at 
of D', an ar2 instruction with subsequent 
proceeds to S10L7U. for the return from U f/ 
is another arithmetic or logical express-' 
instruction return at the end of U' jumj 
for .the return from U f . 
U is a procedure:; 



The key address 1 is introduced in variable chain, 
and U is invoked. Instruction Y at the end of object 
programme U* jumps to S11aL1. The key address 1 
makes S 11 aL3 proceed to SIOLI4.6 for return from U'i 
S1.0L3, the instruction returns: 
SIOLI44, SllaL3; 

Thus the value, obtained by evaluation of the 
expression or function, now occupies N and E, as 
does the value of an extracted variable on S10L17; 



Thus the values, retained by S10LU2, are restored; 
which is analogous to S10L1U; 

Then instruction I is calculative or extractive 
(cf. tables 1A and 1C); 



2.2*8 



SIOL5O1 wrong; 
S1 0L51 : 



S10L52: 



S10L53: 
S10L5U: 

S10L55: 



comment 
cf . table 5A; 
S-lQUi-9; 
if (I or 2t2i+) = then go to Then, in the text, no type is specified for parameter 

S10L19; 

if (I + 2t25xB or 2t25) = 

then go to S10L19; Then the representation of the value obtained is in 

accordance with the type specified for parameter f . 

Transfer is required:; 
£0 to S10L27; S10L82; 

if p-l ^ 2t26 x 122 then wrong; cf. table 5A. 

E is the address 

and switches; 
si : = st[E]; p1 : = st[E+l]; which are the values to "be restored "before the jump; 
y . _ y + p1 . only for joining the course coming from S10L12. 

S10L15, the jump instruction:; 
if e2 ^ then go to S10L57; Otherwise the following data are stored, needed only 

wh- ) the jump instruction leads to a switch 
Jbruction (cf. S10L128) and, in addition, tin 
/a of the subscript concerned is "out of capa 



Z mentioned in table 3 for labels 



\ 



S10L56: 



chain2 
e2 



= cht 



= e; p2 



= y. 



S1 OL57 : chain : = si ; p : = p1 ; 



\c 



OL58: e 



= y - p1 + EO; 



„men the jump instruction does not lead to a swi 
instruction, it leads to a restore • instruction 
(cf. S10L101). 
Then e2 is again cleared. , 

S10L55; 

Thus, "before the jump is performed, the appr- 

values of p and chain are restored. 

S10L130, S10L15, the pass instruction:; 

Thus effect of S10L12 is compensated for; 



X 



X 



I 




r 



2.2.9 



comment 



S10L59: £0 to S10L2; 

S10L60: if p1 / 2t26 x 126 then go to 

SlOL6i4.) 
S10L61: y : = E - Nj 

e : = e + 1 ; 



S10L36; 



S10L62: if exp £ then " 

exp); N . ^ 

S10L63: mant : = mant x stuvj 

go to S1 0L1 ; 
SlOL6i+: if p1 = 2t26 x 125 then go to 

S+OL65; 

if e > then go to SULkO; 

wrong j 

S10L65: if exp / then integer (mant, 

exp) j 
S10L66: y : = mant + st[y]; 

S10L67: if N = then go to S10L74; 



'V 



if N = - 1 then go to S10L69; 



S10L68: J : = - 30; 



M. 



Then I is no an instruction (cf . table 11 
st[E] is the first subscript factor, 
st[y] is the required subscript factor; 
which is analogous to S10L8; 
S10L15, the an instruction:; 



\hich is a product of 2 integers; 
\ol60; 

for an ar2 instruction; 

for transport of a value array; 

cf . table 5A. 

S10L61+, S10L15, the ar2 instruction:; 



The required subscripted variable is located on 

address y; 

Then the ar2 instruction is the last instruction in 

the object programme of an actual parameter which is 

a subscripted variable. Return from that object 

programme is arranged; 

Then assignment to a subscripted variable is 

prepared. 

Otherwise a subscripted variable must be extracted:; 

which is 2 x (operation part of extract normally 

in table 1C); 



x 



2.2.10 



go to S'l0Ll6j 
S10L69: e : = e + 1 ; 

S10L70: mant : = y ' + (I or 2t25) 

+ 2t23 + 2t26x1l7; 



S10L71 : fio to SlOLOj 



S10L72: Q : = Q + 2; 

I : = st[Q - 1]; 
S10L73: £0 to S10IA; 



S10L7U: mant : = s t [Q + 1]; 

exp : = st[Q +2]; 

chain : = st[Q + 3] J 

p : = st [Q + hi \ 

e : = st[Q + 

J : = st[Q + u' JT 

Q : = Q + 6; 
S10L75: i£(J.or 2t2U) / then £0 to 

Sli 



Si 0176: I : = J + (I or 2 t 2k x 3); 



comment 

S10L67; 

as happens also on S10L8. 

S10L15, the store address instruction: j 

cf . store accu in table 1D. This store accu 

instruction is preliminarily stored as a "partial 

result". Its type indication has "been copied from 

the ar2- or store address instruction I; 

The store accu instruction is extracted later on 

S10L72. 

S10L3, the instruction extract address : ; 



The store accu instruction from S10L70 or the * 
store procedure instruction from S10LU1 is interpreted. 
S10L67; 




to "be compared with S10LU7; 

Then, for the formal parameter which represents 

subscripted variable, a type has been specifier 

indicated by the bit J^ (cf. S10L31 and Sl-r~ 

No type has been specified: ; 

Thus, the type of the subscripted varia v 

contaihed in the ar2 instruction, is- 

formal parameter; 




the 



2.2.11- 



S10L77: jgo to. S10L1/+; 

S10L78: I : = (I or 2t25)-(J or 2t25); 

S10L79: if I = then I : = J - 2t2U 

else I : = J + I; 
S10L80; go to S10L1U; 

S10L81 : mant : = N; exp :^/\S^» 

£0 to S10L1 , """'" 
S10L82: if 16 x J < 



S1 OL83 : J ': = st [y + 1 ]• 

S10L8U: if (J or 2t28) / then £0 to 
S10L33; 

S10L85: st[y + 1] : = J : = if 
p1 = 2t26 x 122 
then J + 2t23 x 38 
else y + 2t23 x505; 



S10L86: go to S10L33; 
81 OL87 : N : = - N - 1 ; 

go to S10L81 ; 
S10L88: N : = - Nj 

go to S10L81; 




comment •".~ f \ 

S10L75; ' 

which is the difference of the type bit\. 
Thus either the type "bit or the next "bit v 
instruction is inverted; ' - 

S10L 87, 88, 
S10L19, the extract normally instruction:; 

S10L37; 

Then formal parameter represents a label or e 
Parameter represents constant st[y], 
Vhich constant occurs also as a label:; 
>/hich is the key main word of the constant L 
parameter (cf. tc^le 3); 

Then the actual parameter key has already been 
adjusted earlier on S10L85; 




Thus, depending on I being a jump instruction or 
not, the actual parameter must be a label or an 
arithmetic constant, and the key is adjusted 
accordingly. In the case of a label, E is already 
the correct key by-word of the formal parameter; 
S10L19> the extract inversion instruction:; 
which is the inversion of the previous value; 
S10L19> the extract complement instruction:; 

S10L3, the instruction take inversion:; 



2*2.12 



S1 OL89 : mant : = - mant - 1 ; 

£0 to S1 0L1 ; 
S10L90: mant : =.- mant; 

go to S10L1 ; 

S10L91 : if exp / then integer 
(mant, exp) ; 

S10L92: if mant < then wrong; 

mant : = mant + 1 ; 
S10L93: st[y] : = mant; 

if N = then £0 to S10L95; 



S10L9U: y : = y + N; 

st[y - 2] : = - J \2l 
st[y - 1]: = 



S10L95: e : = e + 2; 
£0 to S10L2; 

S10L96: N : = N + y; 




I : = st[N - 1]; 



comment 

o10L3, the instruction take complement :; 

S10L15, the store factor instruction (cf . S6aLll+ and 

the explanation):; 

martt is the difference of the upper and lower bounds 

of the "bound pair. 

k he the number of the bound pairs; 

cf. table 5A; 



Then y is the address reserved for H, = the number 
of the array elements. The variable u and auxiliary 
variable v are located on addresses y + 1 and y + 2. 
If k > i , the addrr/sses y-1 toy-k+1 are 
reserved for the e/xbscript factors h, . to h,, +•' 
med by k further store factor instruct! 
en y is the address of variable v; 
ich is the next partial value of EL; 
fhich is the next partial value of u. st[y] ii 
ower bound, calculated last. 
S10L 93, 98; 

S10L15» the store pre-value instruction; 

(cf. S6aL2k):j ' 

which is the address reserved for variable 

Addresses N + 1 to y are reserved fo~ 

pre-values ; 

which is the number of the array elements; 



A 




2.2.13 



comment 




J : = st[N]; 

S10L97: Bt[y] : = P - J; 

P : = P + I ; y : = y - 1 ; 
if y/H then go to S10L97; 



S10L98: if P < Q then go,-* 
wrong; 

/ 

S10L99: stfe + 1 ] : = P; 
jgo to S10L1 ; 
S10L100: Q : = y; 

if Q < P then wrong; 
go to SI 0L1 ; 

S10L101 : e2 : = 0; 

S10L102: Q : = y; 
S10L1.03: P : = st[y + 1]; 
SlOLlOi+: go to S10L1; 
S10L105: mant ; = 0; 

^o to S10L107; 
S10L106: I : = y + 2t23 + 2t26 x 72 
+" (I or 2t23 x 6); 

S10L107: P : = P + h; 

if Q < P then wrong; 



which is u. 
S10L97; 



Thus the pre-values are formed and stored. 
All pre-values have "been stored:; 

;f, table 5A. 

510L3, the instruction retain: 

Viol 107, no, siil5; 

3, the value of p is stored on address 
S1*0L15, the adjust instruction:; 



cf. tf.ble 5A; 

S10L15> the restore instruction: 

S10L129; 

Confer comment on S10L56. 

S10L128; 

Thus restore a previous value of Q; 

Restore also value of Pj 

S10L3, the instruction for2:; 

may also he another positive value; 

S10L15, the fori instruction:; 

which plus instruction (cf . tahle 1A) contains the 

type indication of the fori instruction. 

S10L105; 

Thus the addresses P - k to P - 1 are reserved 

for the for statement to he carried out; 

cf . table 5A; 



— x 



st[P - k] : = e; 

st[P - 3] : = st[P - 2] : = I; 



go t£ S10L99; 
S10L108: .if st[P - 2] < then mant : = 

- mant j 

if mant < then go to S10L110; 
S10L109: e : y + EC; 

go Jo S10L2; 

S10L110: P : = P - k; 

go to S10L99; 
S10L111: st[P -;2]. : ;= mant; 

st[P - 1] : = expj go to S10L1 ; 

S10L112: e : = st{p - h] '. I : = st[P - 3]; 

mant : = st[p - 2]: exp: = st[P - 
S10L113: if I < then go to S10L2+; 
SIOLHU: mant : = - 1; \ 

go to S10L1 ' 



comment 

I = instruction for 2 is positieve, the plus 
instruction is negative; 
S10L15» the for instruction:; 



Then cycle is no more executed; 

cf. table 1E; 

Thus execution of cycle begins. 

S10L108; 

Compare S10L107; 

S10L3, the instruction for3:; 

THis the step is stored. 

/ J 

y10L3, the inr/truction forO:; 

)]; cf. S10L107 and S10L111; 

Then the step is added to the controlle 
which may also be another negative value 



2.2.12+ 



S10L120: 
S10L121 : 
S10L122: 

S10L123: 
S10L12U: 



N 



= 0; 



S10L15, the store procedure instruction:; 

S10L15, the store accu instruction:; 
if (I or 2t25) ^ then 'go to S10L123;Then accu must be, or become, real; 
if exp £ then integer (mant, exp); Thus accu is an integer; 




go to S10L12L; 

if exp = then real (mant, exp); 

if N = then go to S10L0a; 



%0L125: N : = mant; E : = exp; 



S10L121; 

S10L122; 

for assignment to function name; 

S11L38; 

S10L19, cf. S11LU2; 




2.2.15 



S10L126: if E = then £0 to S10L127; 



S10L126a: 



SlOL126"b: 



I : = A; 

if E> and E > I then 

wrong ; 

E : = E - 1 :. -^ 

if E + I < 

wrong; 




* *v 

comment 

Then integer N must "be stored; 
N = mantissa, and E = 1 + 2 x exponent <L 
be stored : ; 
For A cf. ENTRY on page 172; 

Then exponent is too large positive; 
which is 2 x the exponent; 



N : = N + (N-or I) ; 
N : = N - (N or I) ; 



S10L127: 
S10L128: 



S10L129 



S10L130: 



hen exponent is too large negative. 
] + I = C does r»}t occur; 
.us mantissa is rounded; 
Thus digits, r esc Wed for exponent, are clet 
if N = 2t32 then N : = N - I - 1; TheK there is no Winding; 
N : = -N ■+ (E-i-2 or I); S10I\\6; \ 

st[y] : = Nj 

go to S10L1; S10L15* the switch instruction:; 

if exp fi then integer (mant, exj); 
if mant ~ or mant > N then 

go to S10L129; Then subscript is "out of capacity"; 

e : = e - mant - 1 ; 

go to S10L102; S10L128; 

chain ; = chain 2 ; 
e : = e2; p : = p2; y ; = 0,2; 
jgo to S10L101j;., : 
if mant = then go to S10L1 ; 
go to S10L58; 



S10L15» the test instruction;;, 

Thus, go to 1 for true =0, go to 58 for false 

- 1. 

S10L3, the extract procedure instruction:; 



S10L131 : mant : = st [ p + Q0 + h ] ; 



x + 



2.2.16 



comment 



exp : = st [p + 00 + 5]j 
£0 to S10L1 ; 



S10L135: J : = I - 2t23 - 2t26 x 108; 



y : = 2t26 x 125; 



S10L136: I : = et[Q + 6] or 2t26 x 127; 



S10L137: I : = if I = 2t26 
J + I else J + y; 



122 then 



S10L138: st[e -BO] : = I; 
S10L139: £2 to S10Lh; 



S10L140: 

S10L1U1 : 
/-"'H0L142: 



J : = I - 2t23 - 2t26 x 110; 

y : = 2t"26 x 98; 

go to S10L136; 

J : = I - 2t26 x 109; 



x + 




Thus ralue, assigned last to function name, 
is assigned to accu. 
S10L15, the VERIFY instruction:; 
cf. VERIFY in table 1D. Then J contains address- 
and rank part of VERIFY instruction; 
cf. ar2 in table 1D. 
siol 1M, 1U3; 

which is the operation part of instruction 
st[Q, +6]. That instruction has been stored earlier 
on address Q + 6 on S10LU2, where it was the instr. 
I, and it refers to a formal parameter, which 
represents the expression whose object programme 
contyins the verification instruction which is 
go;?/{g to be interpreted now; 

TJ^us, if st.[Q + b] is a jump instruction, tb<= 
/erification instruction is replaced by th 
(instruction wit) J the same reference as com 
in the verification instruction. Otherwise - 
verification instruction is replaced by the i 
ar-2- or extract normally instruction; 
which word is definitive; 

Instruction I is interpreted. N has still the 
value, assigned on S10L3* 
S10L15, the verify instruction:; 
To be compared with S10L135; 
cf« extract normally in table 1C; 
S10L15, the Verify instruction:; 
To be compared with S10L135; 



x 



x 




2.2.17 



S10L1U3 
SIOLlkh 

S10L145 



y : = -..'J + 2t23 -i- 2t26 x 98; 

£0 to S10L136; 

wrong; 

wrong; 



S10L1U6; wrong; 



comment ' x»_ 

'Then test on S10L137 fails, I beco.. ^ 
addressless extract normally instruct. 

For dummy elements in switch lists. 
A prostat instruction did not occur in connt 
with a formal parameter, cfi table 1D; 
Integer operations may not "be used with rea' 
numbers; ; 




end S10; 



• 3.1 



coram en t 
"begin Compound, statement S11 



The "big transporter. 

The object programme of any procedure having 

formal parameters contains, as its first word, 

machine code instruction X which jumps to here. 

There is presented: 

I = the machine code instruction which just 

jumped to X and which is the first word in the 

object programme of a designator having actual 

parameters, and key address N = the second word 

in that object programme. 

The following transport is performed; 

res^ent value of 

-+ Q - 2 

Q - 3 

cjiain -* Q .- k 

key main- and Ay-word of 

first par/p, \ _► Q - 5» Q - 6 
second param. _> c i - 7, Q, - 8 

e 

last param. -» Q' + 3» Q* + 2. 

These keys, derived from the offered actual 

parameter keys, contain only absolute addr 

(cf. table 3). 

When a value param. does not represer 

its value becomes the by-word of 

When present, value arrays are s + g^J^- ^e 

lower part of the working space"T?VT.Q of the 



2. .5-2 



/ 




comment 
procedure to be invoked, and the 
P is increased accordingly. 
There happens also: 
p : = Q - 5 - QO, 
chain : = N + 2 x rank of procedure to "be in. 

q : = <V , 

s st[Q -i- l] : = new value of P, as happens also £>' 
,*nd of the dynamic introduction of a "block. 
?he previous val^e of P is still available on 
\ddress p + QO +\]3» ■■"' '■] 

jsignraent to nai. p of type procedure mears .' 
, }u on addresses;! p + QO + h and p + QO + 5 



S11L0 



S11L1 



Q : = Q - h; 

if Q < P then wrong; 

E : = chain; J : = p; 

I : = I + 1 - JO; 

y : = - P; 

st[Q +2] : = - y; 



st[Q + 3]. : = N - Q; 
st[Q + k] : = I; 
st[P] : = Q; 



cf. ..tfcALe 5A; 

In S11L2, the value of chain will be stored on 

address Q, as is already mentioned above; 

cf. table IE + x 1 

S10LU0; 

Thus, when coming from S11L0, st[Q + 2] is positive 

= P. 

When coming from SiOLhO, it is negative; 



Thus : 

st[ st[P] + k ] = address I where the procedure ' s 

object programme contains the specification pattern 

of its first formal parameter, being the second 

word, 



2.3.3 



S11L2 



S11L3: 



S11L4: 



Q : = Q - 2; 
if Q. < P then wrong; 
st[Q +2] : = E; 
st[Q +3] : = J; 



mant : = N : = st[P] ; 

y : = st[N + 2] ; 

J ; = Bt[N + 3] ; 

exp : = Q + J; 

E : = st[ exp] ; ^ 

I : = st[p- 

if If 



if y < then I : = N + J; 



E : = st[N + h] ; 



; -<^1L5: 



p : = N - QO - 1 ; 



comment 

st[ st[P] •;- 3 ] = N - Q, 

which is the difference of the addresses N-i and 

0,-1 , occupied bv the key main words of the first 

actual respectively first formal parameter, 

st[ st[P] + 2 ] is either = + P (when coming from 

S11L0), or negative (when coming from S10L1+0). 

S11L 35, 38, 39, U1, h5; 

cf. table 5A; 

Thus, first time, chain and p are stored. Next times, 

the parameter keys are stored. 

Csrcle/lor forming and storing parameter keys:; 

Be in.'' /the retained lvalue of Q; 

w''Zch is the menlaoned difference of addres' 

"" """TV" """" 

?he latter bein§ L the. "pa in word; 

?hen actual parameter list is not yet exhaust* 

Lctual parameter list exhausted: 

" Q has already the mentioned value Q* ; 

Otherwise I remains = because the programme 

come from S10L2+0 instead of S11LO. 

I is the next key address; 

On address E the procedure's objectjacp' 

contains - 2 x (rank of procedure 

S12L2; 

+x 



ZO-4 



S11L6: 



chain % = I 



"l Lij | 



if chain < then wrong; 

e : = E + EO; 
go to SICL^J. 

11 y < ° 1. 



S11L7: ' if I < then go to S11L19; 



S11L8: y : = 8191 or I; 

J : = I or 2t23 - 2t13; 

I . = I - J - yj 

S11L9: if 1/ then go to S11L10; 

J : = y; 

go to S11L2U; 
311L10? if 3d then go to S11L12; 



comment 
"being key address I + 2 ~* x rank of i. 
invoked; 

Then the formal parameter list contains mo. 
than does the actual parameter list (compare S1 
cf. table 1E; 
*^hus object programme of procedure body is cxeci* 

ius, when cominc. from SIOLhO", H is = manf\ + 5* 
both cases, e^p]. ,/s the value of chaiijwh.-' 

Ull resident -km \ which must also be resi :>rr 
\urn from the ; procedure. 
Whe\\coming from SjCLl-i-O, st[ N - 5] is the yaluu ^ 
chains-belonging toW action of the block, to 
which \Ve procedure to be invoked is local; 
Then th<? actual parameter is an expression. 
The key main word J v s \-a formal parameter which 
represents an expression, must Tef §p* to the address 
N of the location which contains the*'^>lue g£ chain 
belonging to the action of the block or procedure 
body, in which the expression occurs; 
which is the address, contained in the main word 
of the actual parameter key; 
which is the rank part; 

which is characteristic for the kind of the key; 
Actual parameter is a string;; 
The key is simply copied; 
S11L9; 
Then address N is not necessarily changed; 



x 



2.3.5 



S11L11: N : = QO + 1; 
p1 : = 0; 



£0 to S11L1U; 
S11L12: p1 : = p; o1 : = chain; 
S11L13: if 81 < J + 8192 then £0 to 

S11L1U; 

N : = p1 + QO + 1; 

81 : = st[W] ; p1 : = st[N + 1] j 

_go to S11L13; 



S11L15: 
S11L16: 

S11L17: 



S11L18: 



comment 

These values belong to the rank 0, On address 
QO + 2, the interpreter contains the constant 0, 
"being the pre-value" corresponding to the rank Oj 
S11L10; 

S11L13; 
Compare S10L11 ; 



Thus the value £ 




V 



chain hi& "been extracted 
'i 



S11L1U: J : = p1 + y; 



from address N, 
Siil/^fi, 13; 

Thy / to a relative address y contained in an 

a/>ttial parameter /key, corresponds an absolute 

iddress J tolbe included in the formal tar 



if 2 x I < +' 
if k x 
if 8 x 



V 



«*y; 



to 



ile 



Then actual Ja: hme-ter is a simple varis 
Then actaal pa ; \pet^ is an array; :, 
Then actual parameter is either a switch or 
/"label, or it is a constant which also occurs\ 
the text as a label; 
if 16 x I < then go to 311L19; Then actual parameter is a procedure. 

Actual parameter refers to a formal param-*- 
any procedure:; 

E : = st [J] ; J : = st [J + 1] ; 

Thus the key of that formal parsgjf 

copied; 

£2 £0 S11L2kj S11L 7, 18; 



+x 



+x 



S11L19: >■>' 



S11L20: 



W 



tfo to S11L2U? 



J : = / 
else I + • v 



S11L21 : E : = Nj 

go to SHL2h; 



S11L22: E : = E + J; 



comment 

Thus, when a formal parameter repress 
procedure, its key main word J refers 
location which contains the value of chain 
"belonging to the action of the "block to whi 
tA-i'. -procedure is local* 




Thus, when'' k }jbrmal parameter repress! its 
jr a label jor a constant which also ocjcui-^ .. 

^bel, its key!\by-word E is the address of the 
lc Nation which Contains the value of chain 
belonging to the action of the "block to which 
■ the label or sw>^" Vis loj^l. The value of exp. 
is the addres^^h^^^he^^^ct^programme contains 
the key hy-^ |^ o ^ the actu^l^^eter^ 
Thus the key mainlfbrd J of a formal parameter 
which represents a constant, refers to that 
constant, which property is used on S10L82. 
SilLl6j . 

Thus, when a formal parameter represents an 
array, its key "by-word E is an address. On 
addresses E ■•-:- 2, E + 1 and E are available: the 
difference (address of first array element minus 
pre-value), the number of array elements, and, 
if the array has more than 1 dimension, the first 
subscript factor. 



2,3.7 



S11L23: 



S11L2U: 



S11L25: 



S11L26: 
S11L27: 

S11L28: 

S11L29: 
S11L30: 



J : = I + J 



comment 

S11L15? 

In the case of an array/ the key main word J refers 

to the pre-value = the absolute address of the 

array element with all subscripts (that element 

need not he contained in the space reserved for 

the array). 

S11L 9, 18, 19, 21; 



I : = st[mant 
st[mant + k] 
I : = st[I] ; 



; = I + 1; 



if I < then wrong; 



if (I or 2t2h) 
S11L35; 

if J 
if k x 

v 
if 8 x'&^TT 

if 16 x J < 

wrong; 



^ ° then £q to 

\ 





S11L31: if 16 x J < then wrong; 



That is the spx>, 
parameter, havii 

rtxd""omo"j- 

Then//ne formal parameter list contains less 
its than doci the actual parameter list 

test in SVL5); , - 

no typelha.j been specified for the If o~ 
leter be ins jconsidered. 
, je has b Jei /specified: ; : 

Then par "pet (r \^epi\sents an expressior 
\en paiimete-/ t Jpreb ,.)ts a simple variable. 

^ xn'eijfparameter represents a constant; 
then go to S11L32; Then parameter represents a procedure; 

A type has been specified for a formal pa"" 
representing a string. 
S11L28; .. - • 

Then a type has been specified fo; 
parameter representing a "" 



■£Jfe* 



S11L32s 



S11L33: 
S11L3U: 



S11L35: 



S.11L36: 



st[exp + 1 ] 
exp + 



= J 



. ->-wl>'n 



go to 

(- 2f26 + 2f2h 



or J), 



go to S11L35; 

J '- =. J °E ~ 2t2 5 + 2t2i+ - 1; 

if (J - I or 2t25) ^ then 
J : = J + 2t2l+j 



if (2t27 or I) / then go to 
S11L2; 



e : = J37 - 1 ; 
I : = 2t26 x 98; 



o: f 




/ 



^he main word is se 



to 



/ 



8 



T r --^- ? Then type- 



of the specification p Itt' 
main word is consulted If c 



f the main word is set to 0. 



^orded^S-n main word J, differs 

the hit Jg is 



f 



comment 

When a type has "been specified ft 
representing a constant, that constat 
the significance of a lahel, though a 
elsewhere may he equal to it:; 
Thus the parameter/'represents now a ;l simple 
'-V^jg^with pr<;A given value", located on ; 

Thus the hij\ i 
the type hi 
copied. The 

S10L51 ; 
SNJL27; 
Th\\ the hit J 

lr?jin,:^type, re 

se ti ip./jS^JHSL JLnt erpTe^ir-e^ > ^j&5& rmed » 

on SiOi^D^'flHMBfcpf.- transfer is rerfuired for the 

value of the variable' just extracted, 

S11L.25, 32; .:,. 

Then the parameter is not value t and the key is 

ready to he stored in the working space of the 

procedure. 

Parameter is value j; 

337 "being the code instruction for jumping to the +x 

point corresponding to lahel S11L37; 

cf. extract normally in tahle 1C; x 




2.3.9 



\ 






S11L38: 



P : - P + 1; 



go to S10L31 ; 



V 



1L37: P : = P - 1; 



: = if exp =0 A 

en Q, + a* " v ^i-ae c 



J 

then Q 
2t23 x 5 



if exp sj|0 then go to S11L39j 
y : = 

ar - 1; 

10L125J 




comment 
Then the space P...Q is free, 
st[P-1] "being the retained value of Q; 
Then the extract normally instruction is regarded 
as to refer to the formal parameter with the key 
J, E. When the parameter represents a constant, 
expression, procedure, or variable, accu is 
given the value obtained by either extraction or 
evaluation arid the interpreter returns through 
^" l) to S11L37 below. 

femeter repress '^^-""""^rray, 





ierpreter. A „ , - 

\ * / — -.^Xto S11LZ|0> 

/* cours,. ..^notit .^.acting the value, 
<frray. - 

(cf. S11L36J; 

*[P] Is tpl retained value of £• 




^be stored on addre; 



Q. 



Now the by-vi/r ( (^ 

-.wj,Xl * ions ^ted X.ii q j, v. . , # 

T a \ X s iLj3-e variablr /wit: 

f- /■ ) CCU " ts addres s Q i 1 ' I recc 
n wordfx \J v 

tat address variable E is located; 



omthc 



' dS %L the C ° df instr ^ btion dumping to f 
.Th^ the real value accu is «pdcked M 
&p "*>^d to variable E. 



1 .1* >t 




S11LU1 




f comment 
; >f. S11L36){. £ 

TheJfaf is address part of mai^ woja'M 
s^i]is (cf. SHL23)*be pre-vSlue.. ,' 
8-W]+ Bt[B+ 2] j *C^ f - 811122) the aftb.*-*^ 




ierr.ed,^iMJ«^^a* arra y element j ^v^ 

s\>rl§ no1 

— . 1 \i ■ Mv 



if Q < P then wr>s, , 
st[p] : = st[y - 1] ; 



\. 



p space enough for storl hg^ 
ailed value of Q is removed. 



now Jar), the addresses | j, y 
..xt&y jew positid -,, he^ 

called^ "tI^| a/ ay"; l i 

Then there : 
value array 

'hus the re' — , . 

A ,-value of tlL value array will oe .Wed now 

on \ \ddress y - 1\ ; 
+ r ,i t ,, io1 . \ West address minus difference 

st[y .1].-I, a ^l + 2] ,- x e> ^ dtoss _,„, lC ^^ lue) - pre-value; 

r-^hfc X -J3ajsamej/ 

(d. oi^itle^t-c^t^ ,e 

\ /:»* >^ *f**~J&" 

*£atlue array. ^*' 

^^'•je'"*value , 'JPW^nas its other data in common 
with the mother array, the "by-word E which, 
refers to them need not "be changed; 
for transport with transfer of type. 
Past transport: 
S1 11,1+1; 



81 : s et[M] - I; 
I : = J - N + y - 1 ; 



.--/ 



J 
A 



■•"^Rv. 




.A 



if (I or 2t24) / then £0 to 
S11L2+2; 



st[y] : = st[sl + y] j y : = y + 1; 

if y/ P then go jto S1 1L^1 ; 

J : = I; 

go to S11L2; 



2.3.11 



S11L42; 



; "> 



<■ 



144: 
45: 



/ 



mant : = E ; 
J* :■= - 28; 



e : = j44 - 1; 

N : = st[ 6 i + y]. . . 

£2 to S10L17; '""" * ' ' 

y *• = y + 1; " ' *" 

if y / P then £o to S11L43.. 

E : = mant ; 

J : = if I + 2f23 x 260 < 

then I + 2t23 x 1018 else 

I + 2t24; 

go to S11L2 

end S11 ; ...... 



comment 
S10L40; 

Thus "by-word is put to safety; 
Then switch on S10L19 goes to S10L126 
(cf. table 1C). 
S11L44; 
Code instruction j44 jumps to S11L44 "below; 



+x 





f~ 

™' fr !■!!! * Q ° f ^ neW main Word is 0, while / 
Jy differs from I • / 




81 1 al/8 : 



81"1aL9: 




if I - 



,- OIL 



If I/O then go to S11aL6; 



Q : = 0, + 5; 

I : = st[Q - 1] j 



e : = I . + EOj. ..-.-. •*,,,-,_ 
chain : = st[ 

p : si st[Q - 3] ; : 
: *? st[Q - 2] ; 



/« 



.-comment 
4 statement S1la. 
The (Restorer - ; -''^ 
The hast wo^\nt&^ect programme 
procedure i|^he/]e instruction Y,^ 




.Wv 



ftch was resident "bef* 

fcstorr" v •■< -"',,. i 

^sV ^ return; \ 



Np\ 



,) 



1 



win. p ^ /° y / \ 

Then We pi Gc (dur/has heen called th bug. 
I '. I __ '■' a v,oo nn formal V&. \W 



formal parAeW'and has no formal pa 

Vhen the p!(ocekure has heen called diijec. 
\\thout use of\a formal parameter). 
' T A procedure h\s heen called through a formal 
^>*ter and has formal parameters: j 

• A1 ,' """""" ^tor^d on SlOLl+O.' 
)s the 



,s 



../: 



f4r ^^^^yw»5i 
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I is either a previous value of pointer P or a 
previous extraction instructionj 
jen e : = I else P:=I; When the procedure has no formal parameters, I 

is the required. extraction instruction (cf. 
compound statement S12): 
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Q : = N - 2; 

if Q < P then wrong; 
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Compound statene2itSl2, 
The. small transporter. 

The ooject programme of a procedure which has 
no formal parameters, contains, as its first 
word, code instruction X1 which jumps to here. 
For explanation cf. S11: 
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